Suzy B Software 2

home *** CD-ROM | disk | FTP | other *** search

/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_66 / acid / masken.bas (.txt) < prev

Wrap

Atari STOS Basic | 1989-07-03 | 143KB | 251 lines

1 REM masken av opt den 6/1/1988 10 REM gosub 172 : rem highscare_check 100 VARNAME 101 VARNAME 102 FOR 103 VARNAME 104 VARNAME 105 NEXT 106 FOR 107 POKE 108 NEXT 11 GOSUB 110 FOR 111 POKE 112 NEXT 114 FOR 115 POKE 116 NEXT 117 FOR 118 POKE 119 POKE 120 NEXT 1200 REM PROCEDURE INTRO 121 REM 1210 FLASH 122 REM 1220 RESTORE 123 REM 1230 RETURN 124 INK 125 BAR 126 SPRITE 127 GOSUB 128 RETURN 1280 DATA 129 REM ------------------------------------------------- 13 GOSUB 130 REM placerar ut hinder pa skarmen 131 REM now removed 132 REM PROCEDURE hinder 133 REM 134 REM 135 REM 136 REM 137 REM 138 REM 139 REM 14 UNTIL 140 REM 141 RETURN 142 REM ---------------------------------------------- 143 REM satter upp st skarmen 144 REM 145 REM PROCEDURE st_screen 146 CLS 147 EXTENSION (Index #0) (Token 0x80) 148 DEF 149 REPEAT 150 SCROLL 151 LOCATE 152 IF 153 REM 154 UNTIL 155 REM 156 REM 157 REM 16 REM PROCEDURE dodde 160 REM Kollar om spelaren kommer in pa listan och justerar listan. 161 REM 162 REM 163 REM 165 REM 166 REM 167 REM 168 RETURN 169 REM ------------------------------------------------ 17 ANIM 170 REM Kollar om spelaren kommer in pa listan och justerar listan. 171 REM 172 REM PROCEDURE highscare_check 173 PEN 174 VARNAME 175 REPEAT 176 DEC 177 UNTIL 178 IF 179 FOR 18 SPRITE 180 VARNAME 181 VARNAME 182 NEXT 183 GOSUB 184 VARNAME 185 VARNAME 186 ON ERROR 19 REPEAT 191 FOR 192 LOCATE 193 NEXT 194 VARNAME 199 VARNAME 2 REM wow 200 VARNAME 20000 REM errorcheck for disc protect! 201 RETURN 202 REM ----------------------------------------------- 203 REM ber spelaren skriva in namn till high listan 204 REM 205 REM PROCEDURE inp_screen 206 VARNAME 207 CLS 208 LOCATE 209 LOCATE 210 VARNAME 21000 CLS 211 REPEAT 212 IF 218 IF 219 FOR 220 NEXT 221 REM ---------------------------------------------- 222 REM sjalva spelet 223 REM 224 REM PROCEDURE game_of_the_year 225 CLS 226 GOSUB 227 REPEAT 229 IF 230 IF 231 IF 236 IF 24 GOSUB 243 IF 244 IF 25 RETURN 251 WAIT VBL 252 SPRITE 253 POKE 254 IF 255 IF 256 INC 257 IF 258 VARNAME 259 VARNAME 26 REM -------------------------------------------------- 260 VARNAME 261 VARNAME 262 SPRITE 263 IF 264 IF 265 IF 266 UPDATE 268 IF 27 REM placerar ut apple pa skarmen 28 REM 282 UNTIL 283 GOSUB 284 RETURN 29 REM PROCEDURE posapple 3 REM 30 REPEAT 31 VARNAME 32 VARNAME 33 UNTIL 34 SPRITE 35 REPEAT 36 VARNAME 37 VARNAME 38 UNTIL 4 REM Modifierat under sommaren 1988 43 SPRITE 44 RETURN 45 REM ------------------------------------------- 46 REM forstorar masken med growth steg 47 REM 48 REM PROCEDURE enlarge_snake 49 FOR 5 REM klart den xxx i yyy 1988 ! 50 VARNAME 500 REM init scrolltext$ 501 VARNAME 502 VARNAME 503 VARNAME 505 VARNAME 506 VARNAME 507 VARNAME 51 VARNAME 52 NEXT 53 FOR 54 VARNAME 55 VARNAME 56 NEXT 57 VARNAME 58 RETURN 59 REM -------------------------------------------------- 6 GOSUB 60 REM ger poang satter bonus till max 600 VARNAME 601 RETURN 61 REM 62 REM PROCEDURE scare_please 63 VARNAME 64 LOCATE 65 VARNAME 66 RETURN 67 REM --------------------------------------------------- 68 REM init som utfors i samband med att spelet laddas 69 REM 7 REM 70 REM PROCEDURE init_once_only 700 REM proc play_sample 701 DREG 702 RETURN 71 GOSUB 72 KEY 73 PALETTE 74 MODE 75 GOSUB 76 REM 77 REM 78 REM 79 REM 80 CLS 800 REM proc Put_Numbers_on_screen 801 FOR 802 NEXT 81 DIM 82 RESERVE 83 VARNAME 84 VARNAME 85 DIM 86 OPEN IN 87 REM 89 DIM 9 REPEAT 90 RETURN 900 REM acid_special 901 VARNAME 902 REPEAT 903 UNTIL 904 SPRITE 91 REM ------------------------------------------------ 92 REM variabler och annat som maste init vid varje spel 93 REM 94 REM PROCEDURE init_every_game 95 VARNAME 96 VARNAME 97 VARNAME 98 VARNAME 99 VARNAME